*** Code to print "Greensboro Plumbing Supply".
          SHP.DATE = LED(9)<1,GEN>
          IF SHP.DATE < 16938 THEN
          REMIT = 'GREENSBORO PLUMBING SUPPLY'
          END ELSE
          REMIT = R.ADDR<1>
          END


   IF SHP.DATE < 16938 THEN
          BR.ADDR = 'GREENSBORO PLUMBING SUPPLY'
          END ELSE
          BR.ADDR =  CUS.BR<1>
          END
          IF CUS.BR<2,1> # '' THEN BR.ADDR<-1> = CUS.BR<2,1>
          IF CUS.BR<2,2> # '' THEN BR.ADDR<-1> = CUS.BR<2,2>
          BR.ADDR<-1> = CUS.BR<3>:' ':CUS.BR<4>:' ':CUS.BR<5>